home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok58 / multimem / multimemtest.mod < prev    next >
Text File  |  1993-11-04  |  747b  |  41 lines
  1.  
  2. (* After this test WBench must show the memory avail-memory *)
  3.  
  4. MODULE MultiMemTest;
  5.  
  6. IMPORT
  7.   NoGuru,
  8.   e: Exec,
  9.   mm: MultiMem,
  10.   sys: SYSTEM;
  11.  
  12. VAR
  13.   h1, h2, h3, h4: mm.HeapPtr;
  14.   e1, e2, e3, e4, e5: e.STRPTR;
  15.  
  16. BEGIN
  17.   mm.NewHeap(h1); IF h1 = NIL THEN HALT(20); END;
  18.  
  19.   mm.New(h1,e1,4);
  20.   mm.New(h1,e2,4);
  21.   mm.Dispose(e1);   (* give one free *)
  22.   mm.EmptyHeap(h2); (* free only contents, not the heap itself *)
  23.  
  24.   mm.NewHeap(h2); IF h2 = NIL THEN HALT(20); END;
  25.  
  26.   mm.New(h2,e1,4);
  27.   mm.New(h2,e3,4);
  28.   mm.Dispose(e1);   (* give one free *)
  29.   mm.New(h2,e4,4);
  30.   mm.New(h2,e5,4);
  31.  
  32.   mm.NewHeap(h3); IF h3 = NIL THEN HALT(20); END;
  33.  
  34.   mm.New(h3,e1,4);
  35.  
  36.   mm.DisposeHeap(h3); (* other Heaps should be disposed by MultiMem *)
  37.  
  38. END MultiMemTest.
  39.  
  40.  
  41.